00100		SUBROUTINE GEN
00200		COMMON FREQ(3,0/50,50),FUNC(50)
00300		X=1./50.
00400		DO 100 I=1,50
00500		Y=I-1
00600	C100	FUNC(I)=X*(50-Y)
00650	100	FUNC(I)=X*Y
00700		RETURN
00800		END